(tit-process-body): Handle `\' used

for quoting the following digits correctly.

diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el
index a92157744e9ec2e75c15fbbfdd4ce1d6143f87a0..f80925325cd4d2b091a97d7a3d818a87a3459ccd 100644 (file)
--- a/lisp/international/titdic-cnv.el
+++ b/lisp/international/titdic-cnv.el
@@ -281,7 +281,9 @@
        (setq keyseq
              (concat (regexp-quote (buffer-substring pos (point))) "[ \t]+"))
        (save-excursion
-         (while (re-search-backward "[\\\"]" pos t)
+         ;; Escape `"' and `\' which is not used for quoting the
+         ;; following octal digits.
+         (while (re-search-backward "\"\\|\\\\[^0-9]" pos t)
            (insert "\\")
            (forward-char -1)))
        (insert "\"")